home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / adx7mu1a / dialstat.frm < prev    next >
Text File  |  1999-06-14  |  3KB  |  100 lines
  1. VERSION 5.00
  2. Begin VB.Form Dialstatus 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Dialing"
  5.    ClientHeight    =   1155
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4710
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1155
  15.    ScaleWidth      =   4710
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin VB.CommandButton dialagain 
  19.       Caption         =   "Dial"
  20.       Enabled         =   0   'False
  21.       Height          =   375
  22.       Left            =   840
  23.       TabIndex        =   2
  24.       Top             =   720
  25.       Width           =   1215
  26.    End
  27.    Begin VB.CommandButton Command1 
  28.       Cancel          =   -1  'True
  29.       Caption         =   "cancel"
  30.       Default         =   -1  'True
  31.       Height          =   375
  32.       Left            =   2640
  33.       TabIndex        =   1
  34.       Top             =   720
  35.       Width           =   1215
  36.    End
  37.    Begin VB.Label Label1 
  38.       Alignment       =   2  'Center
  39.       Caption         =   "Label1"
  40.       Height          =   375
  41.       Left            =   960
  42.       TabIndex        =   0
  43.       Top             =   120
  44.       Width           =   2655
  45.    End
  46. End
  47. Attribute VB_Name = "Dialstatus"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. Private Sub Command1_Click()
  53. If answerline = True Then
  54.     MainBoard.Enabled = True
  55.     MainBoard.MSComm1.PortOpen = False
  56.     Unload Me
  57.     Exit Sub
  58. End If
  59. MainBoard.MSComm1.PortOpen = False
  60. phonenumbersform.Enabled = True
  61. instring = ""
  62. Unload Me
  63. alwaysshow = 0
  64. phonenumbersform.Show
  65. End Sub
  66. Private Sub dialagain_Click()
  67.  Call MainBoard.dialme(phonenumbersform.Label1.Caption)
  68.  Label1.Caption = "Dialing... " & phonenumbersform.Label1.Caption
  69. End Sub
  70.  
  71. Private Sub Form_Load()
  72. MainBoard.Enabled = False
  73. multiplayermode = True
  74. If answerline = True Then
  75.     Me.Caption = "Waiting For a Call."
  76.     dialagain.Visible = False
  77.     Label1.Caption = "Waiting For Ring........"
  78.         If MainBoard.MSComm1.PortOpen = False Then
  79.             MainBoard.MSComm1.CommPort = commnumber
  80.             MainBoard.MSComm1.settings = maxspeed & ",n,8,1"
  81.             MainBoard.MSComm1.InputLen = 0
  82.             MainBoard.MSComm1.EOFEnable = False
  83.             MainBoard.MSComm1.Handshaking = comNone
  84.             MainBoard.MSComm1.InputMode = comInputModeBinary
  85.             MainBoard.MSComm1.RTSEnable = True
  86.             MainBoard.MSComm1.SThreshold = "2"
  87.             MainBoard.MSComm1.RThreshold = "2"
  88.             MainBoard.MSComm1.DTREnable = True
  89.             MainBoard.MSComm1.PortOpen = True
  90.             Debug.Print "Modem Speed is set to " & maxspeed
  91.         End If
  92.     MainBoard.MSComm1.Output = "AT" & vbCr & vbCr & vbCr
  93.     Exit Sub
  94. End If
  95. dialagain.Enabled = False
  96. alwaysshow = 1
  97. Label1.Caption = "Dialing... " & phonenumbersform.Label1.Caption
  98. End Sub
  99.  
  100.